<init>
subevent(mapinit,);

#item(check:eq,aT,1); if(nowres); mc(48,enegr,+=,(Ȃ`TS(6))); endif;
#,ȂTLTS(3),ȂcglTS(3),TLcglTS(3)
#endif;

subevent(yj4adbl,); if(nowres);
mc(48,enegr,+=,(`S~S(3),Ȃ`SQ(3),TL`SQ(3),cgl`SQ(3),Ȃ`cgl`S(6)));
#mc(48,enegr,+=,(`S~R,`SOyQ,`S}Q,`SZ藜Q,Ȃ`SOy,Ȃ`S},Ȃ`SZ藜,TL`SOy,TL`S},TL`SZ藜,ȂTL`S));
#mc(26,enegr,+=,(`S~U,Ȃ`SQ,TL`SQ,`S));
#mc(27,enegr,+=,(`S~U,Ȃ`SQ,TL`SQ,`S));
#mc(38,enegr,+=,(`S~U,Ȃ`SQ,TL`SQ,`S));
#mc(39,enegr,+=,(`S~U,Ȃ`SQ,TL`SQ,`S));
#item(check:eq,ɒ,1); if(nowres); mc(48,enegr,+=,(Ȃ``S(4))); endif;
#mc(48,enegr,+=,(`S~S(6),Ȃ`cgl`S(6)));
#,ȂTL`S(3),Ȃcgl`S(3),TLcgl`S(3)
#item(check:eq,aT,1); if(nowres); mc(48,enegr,+=,Ȃ``S(6)); endif;
endif;

subevent(yj5adbl,); if(nowres);
# and; evflagsw(pr_bnyj-a4,==,1);
mc(26,enegr,+=,(`T~Q,nȁ`T,TLf`T,cs`T));
endif;

#item(check:eq,aT,1); if(nowres);
#mc(36,enegr,+=,(TS~R,TSOyQ,TS}Q,TSZ藜Q,ȂTLTS));
#mc(26,enegr,+=,(TS,TS~U));
#mc(27,enegr,+=,(TS,TS~U));
#mc(28,enegr,+=,(TS,TS~U));
#mc(29,enegr,+=,(TS,TS~U));
#endif;

#item(check:eq,aT,1); and; item(check:eq,XL[,1); if(nowres);
#mc(36,enegr,+=,(Ȃ``S(4)));
#endif;


<out>
fade(out,(type=fade,color=000000,wait=16)); fc(*actor,moved,x+); if(nowres); zukan(warppos:*all,|=,knw_e); fc(*actor,move,20,-21,center); fc(*actor,dir,=,r); else; fc(*actor,move,18,-21,center); fc(*actor,dir,=,l); endif; fc(*actor,float,=,0); changemap(tB[h); fade(in,(type=fade,color=000000,wait=16));


#^C}[X^[g
<timer_start>
subevent(@mush_dapr,);

#CxgDx̉}u
fc(c1:1,apr,=,1);

#timer(mush_tme,2,6);
timer(kinoko,@timer_end,15,6);


#^CI[o[
<timer_end>
fcslc(c2); while; if(nowres); fc(*select,apr,=,1); fc(*select,mvpat,1,mush_apr,0); fcslc(*nextlabel); next; endif; wend;
#fc(*select,ans,=,0); fc(*select,ani,=,3); fc(*select,anw,=,127); 

#fcslc(c2); while; if(nowres); fc(*select,apr,=,1); fc(*select,ans,=,-16); fcslc(*nextlabel); next; endif; wend;
#wait(24);
#fcslc(c2); while; if(nowres); fc(*select,ans,=,0); fcslc(*nextlabel); next; endif; wend;
##fc(pic,c2,=,box); wait(16); fc(ani,c2,2,-1);

#CxgDx̉}u
fc(c1:1,apr,=,0);


#LmRAj
<mush_dapr>
fcslc(c2); while; if(nowres); fc(*select,apr,!=,0); if(nowres); fc(*select,mvpat,1,mush_dapr,0); endif; fcslc(*nextlabel); next; endif; wend;

#fcslc(c2); while; if(nowres); fc(*select,apr,!=,0); unif(nowres); fcslc(*nextlabel); next; endif; endif; wend;
#if(nowres);
#fcslc(c2); while; if(nowres); fc(*select,apr,=,1); fc(*select,ans,=,16); fcslc(*nextlabel); next; endif; wend;
#wait(24);
#fcslc(c2); while; if(nowres); fc(*select,apr,=,0); fcslc(*nextlabel); next; endif; wend;
#endif;


#Œʍs
<srnd>
#evflagsw(pr_dfmoon,==,0); if(nowres);
not; fc(*actor,mvrgn,&,); if(nowres);
text(1,face=+evfch,uǂĂʂȂȂʂĂH@~v邯ǂˁB̐̓G͂Ƌ`lĂˁBȊÕyieB͖ASĕĂĂv);
#ɓ˔jĂ薳
select2(reset,all);
select2(+ʂȂI@ʂāI(id=1));
select2(+ȂyH); select2(/);
select2(*ʂĂ炤H(cid=));
evflag(*selected,==,1); if(nowres); party(,gold,>=,2000); if(nowres); party(,gold,+=,-2000); subevent(@mush_dapr,); fc(*target,event,); fc(c1,apr,=,0); fc(c1:1,apr,=,0); else; text(1,face=+evfch,uȂv); endif; endif;
else;
text(1,face=+evfch,uǂĂʂȂȂʂĂccČƂǁA݂ɂ͂̕Kv͖݂ˁB܊p̋@`𕷂Ăv\ruw%ct2ƋAĐ𑵂̗̂͂A쐼̌֍sׂ%cdxĂBdvx͂ȂႢCv);
#B΁A̗͂葽߂ɓ邾낤
#Ƌ̗͂葽΁AƋAĐ𑵂̗̂͂A쐼̌֍sׂ
evflagsw(pr_elements,==,1); if(nowres); text(1,face=+evfch,ucc[AȂ񂩊ɂ͉̓ĂCv); endif;
#text(1,face=+evfch,uǂĂʂȂȂʂĂccČƂǁA݂ɂ͂̕KvȂ݂ˁv);
#text(1,face=+evfch,u݂ɂ͂KvȂ悤ǁcv);
#select2(reset,all);
#select2(+ėށI(id=1));
#select2(+UbcCg); select2(/);
endif;
#select2(*ʂĂ炤H(cid=));

#evflag(*selected,==,1); if(nowres); party(,gold,>=,2000); if(nowres); party(,gold,+=,-2000); evflagsw(pr_dfmoon,==,1); if(nowres); text(1,face=+evfch,u܊p炱ꂠv); getdlg(,head,0,0,0, 0,r); endif; subevent(@mush_dapr,); fc(c1,apr,=,0); fc(c1:1,apr,=,0); else; text(1,face=+evfch,uȂv); endif; endif;
#Qr


#ol
<gdtoex>
#party(,gold,+=,999999999999);
text(1,face=+evfch,uڂ͐_bɖoɕςĂ܂LmRv);
#text(1,face=+evfch,uڂ͐_bɍȂoɕςĂ܂LmRv);
#party(,gold,>,0); if(nowres);
while;
memslcbox(party:exp,mŇolグHn\n: %pty[e].gd,,,4); if(nowres);
inpnum(mグHiPoɂS~jn\n%mem[s]\nol: %mem[s].ex\n: %pty[e].gd,16,(rate=4,mode=buy,cable=1)); and; evflag(*64:nowval,>,0); if(nowres); evflag(*64:instant1,=,evf(*64:nowval)); evflag(*64:instant3,=,evf(*64:instant1)); evflag(*64:instant1,*=,4);
party(,gold,>=,evf(*64:instant1)); if(nowres);
getdlg(,select,evf(*64:instant3),0,0, 0,); text(4,,%str[*def]);
#member(select,exp,+=,instant2,2,1); sound(warp); text(1,face=uam,%mem[s]̌ol%mem[s].exɂȂI);
#text(1,,%eh[*instant1]\n%eh+[*instant3]);
party(,gold,-=,evf(*64:instant1));
else; text(1,face=+evfch,uȂv); endif;
endif; next; endif;
wend;
#endif;


#LmR퓬
<btlmush>
text(1,face=uam,hȃLmRsjłcB);

select2(reset,all);
select2(+ɒʂiyieBj(id=0));
select2(+߂Ă);
select2(*(cid=));

evflag(*selected,==,0); if(nowres); 
#evflagsw(dspenecdp2,=,1);
fade(out,(type=btdefo,color=btdefo,dep=btdefo,rot=btdefo,wait=btdefo)); battle((enegr=LmR,chdmg=+(ԕ\),bgm=*nochange:def,stm=0,btm=ae|ns)); fade(in2,);
#evflagsw(dspenecdp2,=,0);
evflag(*selected,==,1); if(nowres); subevent(@mush_dapr,); fc(*target,event,); fc(c1,apr,=,0); fc(c1:1,apr,=,0); end; endif;
endif;


#n
<to_b1>
#evflagsw(pr_chitei,=,1);
fade(out,(type=fade,color=c06000,wait=16)); fc(*actor,move,0,0,center); fc(*actor,dir,=,d); changemap(LmRʘHn); fade(in,(type=fade,color=c06000,wait=16));


#nǂLmR
<chikamush>
text(1,face=uam,B);
#evflagsw(pr_honpen,==,0); if(nowres);
#text(1,face=uam,ACɂȂėǂB);
#else;
#text(1,face=uam,A債ďdvł͖CB); 
#endif;
#text(1,face=uam,Aɏdvł͖B);